home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / tab.c < prev    next >
C/C++ Source or Header  |  1996-01-30  |  2KB  |  57 lines
  1. /*
  2.     GWAda Development Environment for 386/486 PCs   
  3.     Copyright (C) 1993, Arthur Vargas Lopes  & Michael Bliss Feldman
  4.                         vlopes@vortex.ufrgs.br mfeldman@seas.gwu.edu
  5.  
  6.     This program is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; version 2 of the License.    
  9.  
  10.     This program is distributed in the hope that it will be useful,
  11.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.     GNU General Public License for more details.
  14.  
  15.     You should have received a copy of the GNU General Public License
  16.     along with this program; if not, write to the Free Software
  17.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18. */
  19.  
  20. /*  Tab.c  */
  21.  
  22. #include <externs.h>
  23.  
  24.  
  25.  
  26. void AVL_SET_TAB()
  27. {
  28.     char f[AVL_MAX_LINEL+10];
  29.     AVL_EDIT_WINDOW_PTR w;
  30.     AVL_WIN_PTR m1;
  31.     short co;
  32.     int n1, n2;
  33.     static char *msg = " GWAda - Set Identation Length ";
  34.     static char *msg2 = "Current identation length: ";
  35.     w = &avl_windows[avl_window];
  36.     n1 = strlen(msg) + 10;
  37.     n2 = (80 - n1) / 2;
  38.     m1 = AVL_MAKE_WINDOW(msg,7,n2,9,n1+n2,avl_wnd_bk_color,avl_wnd_color);
  39.     while ( 1 ) {
  40.         _settextposition(1,1);
  41.         sprintf(f,"%d", avl_tab_size);
  42.         _outtext(msg2);
  43.         if (AVL_PROMPT(1,strlen(msg2)+1,f,2)) {
  44.             AVL_DEL_WINDOW(m1);
  45.             return;
  46.             }
  47.         sscanf(f,"%d",&n2);
  48.         if (n2 >= 1 && n2 <= 8) {
  49.             w -> tabsize = avl_tab_size = n2;
  50.             AVL_DEL_WINDOW(m1);
  51.             return;
  52.             }
  53.         else 
  54.             AVL_ERROR("Invalid identation length. Must be in the 1..8 range!");
  55.         }
  56. }
  57.